/* rwbr006.p - Department Codes Browse UI                                   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.1.1.7 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 *    Revision: 9.0      Created: 04/06/99    By: Jyoti Thatte   *J3CY*
 *    Revision: 9.1     Modified: 10/01/99    By: Jeff Wootton   *N023*
 *    Revision: 9.1     Modified: 08/15/00    By: Mark Brown     *N0KP*
 * $Revision: 1.1.1.7 $    BY: Jean Miller          DATE: 04/05/02  ECO: *P044*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "Department Codes"

&SCOPED-DEFINE BR-NAME rw006
&SCOPED-DEFINE Q-DRAG-BACK-COL 1

&SCOPED-DEFINE Q-FIRST-TABLE dpt_mstr
&SCOPED-DEFINE Q-FIRST-FIELD-LIST (dpt_dept dpt_desc dpt_lbr_cap dpt_cop_acct dpt_lbr_acct dpt_bdn_acct dpt_lvar_acc dpt_lvrr_acc dpt_bvar_acc dpt_bvrr_acc)
&SCOPED-DEFINE Q-NUM-TABLES 1

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-1.dpt_dept
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 dpt_mstr.dpt_dept
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-dpt_dept
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "Dept"
&SCOPED-DEFINE BR-FIELD-TYPE-1 character
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 b-1.dpt_desc
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 dpt_mstr.dpt_desc
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-dpt_desc
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "Description"
&SCOPED-DEFINE BR-FIELD-TYPE-2 character
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT "x(24)"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 25

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 b-1.dpt_lbr_cap
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 dpt_mstr.dpt_lbr_cap
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-dpt_lbr_cap
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Labor Cap"
&SCOPED-DEFINE BR-FIELD-TYPE-3 integer
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT "->,>>>,>>9"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 11

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 b-1.dpt_cop_acct
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 dpt_mstr.dpt_cop_acct
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-dpt_cop_acct
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "COP"
&SCOPED-DEFINE BR-FIELD-TYPE-4 character
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-5 b-1.dpt_lbr_acct
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-5 dpt_mstr.dpt_lbr_acct
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-5 tt-dpt_lbr_acct
&SCOPED-DEFINE BR-K-COL-LABEL-5 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-5 "Labor"
&SCOPED-DEFINE BR-FIELD-TYPE-5 character
&SCOPED-DEFINE BR-FIELD-FRMT-5 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-5 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-6 b-1.dpt_bdn_acct
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-6 dpt_mstr.dpt_bdn_acct
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-6 tt-dpt_bdn_acct
&SCOPED-DEFINE BR-K-COL-LABEL-6 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-6 "Burden"
&SCOPED-DEFINE BR-FIELD-TYPE-6 character
&SCOPED-DEFINE BR-FIELD-FRMT-6 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-6 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-7 b-1.dpt_lvar_acc
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-7 dpt_mstr.dpt_lvar_acc
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-7 tt-dpt_lvar_acc
&SCOPED-DEFINE BR-K-COL-LABEL-7 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-7 "Lbr Use"
&SCOPED-DEFINE BR-FIELD-TYPE-7 character
&SCOPED-DEFINE BR-FIELD-FRMT-7 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-7 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-8 b-1.dpt_lvrr_acc
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-8 dpt_mstr.dpt_lvrr_acc
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-8 tt-dpt_lvrr_acc
&SCOPED-DEFINE BR-K-COL-LABEL-8 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-8 "Var Acct"
&SCOPED-DEFINE BR-FIELD-TYPE-8 character
&SCOPED-DEFINE BR-FIELD-FRMT-8 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-8 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-9 b-1.dpt_bvar_acc
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-9 dpt_mstr.dpt_bvar_acc
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-9 tt-dpt_bvar_acc
&SCOPED-DEFINE BR-K-COL-LABEL-9 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-9 "Bdn Use"
&SCOPED-DEFINE BR-FIELD-TYPE-9 character
&SCOPED-DEFINE BR-FIELD-FRMT-9 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-9 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-10 b-1.dpt_bvrr_acc
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-10 dpt_mstr.dpt_bvrr_acc
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-10 tt-dpt_bvrr_acc
&SCOPED-DEFINE BR-K-COL-LABEL-10 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-10 "Bdn Rate"
&SCOPED-DEFINE BR-FIELD-TYPE-10 character
&SCOPED-DEFINE BR-FIELD-FRMT-10 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-10 9

&SCOPED-DEFINE Q-NUM-FILT-VALS 10
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 25
&SCOPED-DEFINE BR-BROWSE-WIDTH 108
&SCOPED-DEFINE WHERE-CLAUSE
&SCOPED-DEFINE BR-INDEXED-FIELDS 1,2

{wbbr01.i}
if c-application-mode <> 'WEB' then do:
   {browse.i}
end.
